﻿'By: CHUN SOKCHEA
'Student of Build Bright University
'Mail: chunsokchea@gmailc.om
'Phone: 087 397 317
Public Module DgvCol
    Public Sub genColumn(ByVal dgv As DataGridView, ByVal col As Integer, ByVal i As Integer, ByVal name As String, ByVal r As Boolean)
        dgv.ColumnCount = col
        dgv.Columns(i).Name = name
        dgv.Columns(i).ReadOnly = r
        dgv.Columns(i).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    End Sub
End Module
